﻿Imports System.IO
Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim MyDirInfo As New MyDirectoryInfo("C:\Programmi")
    Console.WriteLine(MyDirInfo.MyDirPath & ": " & NL &
        MyDirInfo.MyGetDirectoryInfo)
    Console.ReadLine()

  End Sub
End Module
